home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 099 (1989-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 099 (1989-05-15)(Ossowski, Stefan)(DE)(PD).adf / PCQ / Runtime / writebool.asm < prev    next >
Assembly Source File  |  1989-03-31  |  601b  |  40 lines
  1.  
  2. *    WriteBool.asm (of PCQ Pascal runtime library)
  3. *    Copyright (c) 1989 Patrick Quaid
  4.  
  5. *    This writes boolean values.  The write routines are so much
  6. *    simpler than the read routines....
  7.  
  8.     SECTION    ONE
  9.  
  10.     XREF    _p%DOSBase
  11.     XREF    outbuffer
  12.     XREF    _LVOWrite
  13.     XREF    _p%padout
  14.  
  15.     XDEF    _p%writebool
  16. _p%writebool:
  17.  
  18.     tst.b    d0
  19.     beq.s    1$
  20.     move.l    #TrueText,d2
  21.     moveq    #4,d3
  22.     bra.s    2$
  23. 1$    move.l    #FalseText,d2
  24.     moveq    #5,d3
  25. 2$    move.l    6(sp),d1
  26.     move.w    4(sp),d0
  27.     ext.l    d0
  28.     sub.l    d3,d0
  29.     ble.s    3$
  30.     jsr    _p%padout
  31. 3$    move.l    _p%DOSBase,a6
  32.     jsr    _LVOWrite(a6)
  33.     rts
  34.  
  35.     SECTION    TWO,DATA
  36. TrueText    dc.b    'TRUE'
  37. FalseText    dc.b    'FALSE'
  38.     END
  39.  
  40.